home *** CD-ROM | disk | FTP | other *** search
/ CSi Master: Ableton Live 5 / CSi Master: Ableton Live 5.iso / pc / rsrc / locrsrc / mtprsrc-old.dir / Internal_134_SHARED-closes media boards(ST).ls < prev    next >
Encoding:
Text File  |  2005-10-31  |  12.2 KB  |  265 lines
  1. on mouseDown
  2.   global textDispVisible, topicLetter, subtopicNumber, STclickLine, lineSelect, mediaField, SToldClickLine, gLang, STlineSave, SToldLine, gPicName, gSourcePath, gMovieBasePath
  3.   VmouseLine = the mouseLine
  4.   if VmouseLine > 0 then
  5.     if the machineType = 256 then
  6.       if gPicName = "CSI_V4.PCT" then
  7.         if line VmouseLine of field "subtopics" = "introduction" then
  8.           vSSaveDelimiter = the itemDelimiter
  9.           the itemDelimiter = "\"
  10.           delete item the number of items in gMovieBasePath of gMovieBasePath
  11.           delete item the number of items in gMovieBasePath of gMovieBasePath
  12.           gMovieBasePath = gMovieBasePath & "\movie\"
  13.           the itemDelimiter = vSSaveDelimiter
  14.         else
  15.           vSSaveDelimiter = the itemDelimiter
  16.           the itemDelimiter = "\"
  17.           delete item the number of items in gMovieBasePath of gMovieBasePath
  18.           delete item the number of items in gMovieBasePath of gMovieBasePath
  19.           gMovieBasePath = gMovieBasePath & "\ie\"
  20.           the itemDelimiter = vSSaveDelimiter
  21.         end if
  22.       else
  23.         if gPicName = "CSI_V5.PCT" then
  24.           if line VmouseLine of field "subtopics" = "introduction" then
  25.             vSSaveDelimiter = the itemDelimiter
  26.             the itemDelimiter = "\"
  27.             delete item the number of items in gMovieBasePath of gMovieBasePath
  28.             delete item the number of items in gMovieBasePath of gMovieBasePath
  29.             gMovieBasePath = gMovieBasePath & "\movie\"
  30.             the itemDelimiter = vSSaveDelimiter
  31.           else
  32.             vSSaveDelimiter = the itemDelimiter
  33.             the itemDelimiter = "\"
  34.             delete item the number of items in gMovieBasePath of gMovieBasePath
  35.             delete item the number of items in gMovieBasePath of gMovieBasePath
  36.             gMovieBasePath = gMovieBasePath & "\ie\"
  37.             the itemDelimiter = vSSaveDelimiter
  38.           end if
  39.         else
  40.           if gPicName = "CSI_V6.PCT" then
  41.             if line VmouseLine of field "subtopics" = "introduction" then
  42.               vSSaveDelimiter = the itemDelimiter
  43.               the itemDelimiter = "\"
  44.               delete item the number of items in gMovieBasePath of gMovieBasePath
  45.               delete item the number of items in gMovieBasePath of gMovieBasePath
  46.               gMovieBasePath = gMovieBasePath & "\movie\"
  47.               the itemDelimiter = vSSaveDelimiter
  48.             else
  49.               vSSaveDelimiter = the itemDelimiter
  50.               the itemDelimiter = "\"
  51.               delete item the number of items in gMovieBasePath of gMovieBasePath
  52.               delete item the number of items in gMovieBasePath of gMovieBasePath
  53.               gMovieBasePath = gMovieBasePath & "\ie\"
  54.               the itemDelimiter = vSSaveDelimiter
  55.             end if
  56.           else
  57.             if gPicName = "CSI_V7.PCT" then
  58.               if line VmouseLine of field "subtopics" = "introduction" then
  59.                 vSSaveDelimiter = the itemDelimiter
  60.                 the itemDelimiter = "\"
  61.                 delete item the number of items in gMovieBasePath of gMovieBasePath
  62.                 delete item the number of items in gMovieBasePath of gMovieBasePath
  63.                 gMovieBasePath = gMovieBasePath & "\movie\"
  64.                 the itemDelimiter = vSSaveDelimiter
  65.               else
  66.                 vSSaveDelimiter = the itemDelimiter
  67.                 the itemDelimiter = "\"
  68.                 delete item the number of items in gMovieBasePath of gMovieBasePath
  69.                 delete item the number of items in gMovieBasePath of gMovieBasePath
  70.                 gMovieBasePath = gMovieBasePath & "\ie\"
  71.                 the itemDelimiter = vSSaveDelimiter
  72.               end if
  73.             else
  74.               if gPicName = "CSI_V8.PCT" then
  75.                 if line VmouseLine of field "subtopics" = "introduction" then
  76.                   vSSaveDelimiter = the itemDelimiter
  77.                   the itemDelimiter = "\"
  78.                   delete item the number of items in gMovieBasePath of gMovieBasePath
  79.                   delete item the number of items in gMovieBasePath of gMovieBasePath
  80.                   gMovieBasePath = gMovieBasePath & "\movie\"
  81.                   the itemDelimiter = vSSaveDelimiter
  82.                 else
  83.                   vSSaveDelimiter = the itemDelimiter
  84.                   the itemDelimiter = "\"
  85.                   delete item the number of items in gMovieBasePath of gMovieBasePath
  86.                   delete item the number of items in gMovieBasePath of gMovieBasePath
  87.                   gMovieBasePath = gMovieBasePath & "\ie\"
  88.                   the itemDelimiter = vSSaveDelimiter
  89.                 end if
  90.               else
  91.               end if
  92.             end if
  93.           end if
  94.         end if
  95.       end if
  96.     end if
  97.   else
  98.     if gPicName = "CSI_V4.PCT" then
  99.       if line VmouseLine of field "subtopics" = "introduction" then
  100.         gSourcePath = "CSi vol.4:content:movie:"
  101.       else
  102.         gSourcePath = "CSi vol.4:content:ie:"
  103.       end if
  104.     else
  105.       if gPicName = "CSI_V5.PCT" then
  106.         if line VmouseLine of field "subtopics" = "introduction" then
  107.           gSourcePath = "CSi vol.5:content:movie:"
  108.         else
  109.           gSourcePath = "CSi vol.5:content:ie:"
  110.         end if
  111.       else
  112.         if gPicName = "CSI_V6.PCT" then
  113.           if line VmouseLine of field "subtopics" = "introduction" then
  114.             gSourcePath = "CSi vol.6:content:movie:"
  115.           else
  116.             gSourcePath = "CSi vol.6:content:ie:"
  117.           end if
  118.         else
  119.           if gPicName = "CSI_V7.PCT" then
  120.             if line VmouseLine of field "subtopics" = "introduction" then
  121.               gSourcePath = "CSi vol.7:content:movie:"
  122.             else
  123.               gSourcePath = "CSi vol.7:content:ie:"
  124.             end if
  125.           else
  126.             if gPicName = "MT_PI.PCT" then
  127.               if line VmouseLine of field "subtopics" = "introduction" then
  128.                 gSourcePath = "CSi MT Plug-ins:content:movie:"
  129.               else
  130.                 gSourcePath = "CSi MT Plug-ins:content:ie:"
  131.               end if
  132.             else
  133.               if gPicName = "CSI_V8.PCT" then
  134.                 if line VmouseLine of field "subtopics" = "introduction" then
  135.                   gSourcePath = "CSi vol.8:content:movie:"
  136.                 else
  137.                   gSourcePath = "CSi vol.8:content:ie:"
  138.                 end if
  139.               else
  140.                 if gPicName = "CSi_ST1.PCT" then
  141.                   if line VmouseLine of field "subtopics" = "introduction" then
  142.                     gSourcePath = "CSi ST1:content:movie:"
  143.                   else
  144.                     gSourcePath = "CSi ST1:content:ie:"
  145.                   end if
  146.                 else
  147.                   if gPicName = "CSI_M1.PCT" then
  148.                     if line VmouseLine of field "subtopics" = "introduction" then
  149.                       gSourcePath = "DP4 CSi MASTER:content:movie:"
  150.                     else
  151.                       gSourcePath = "DP4 CSi MASTER:content:ie:"
  152.                     end if
  153.                   else
  154.                     if gPicName = "CSI_V10.PCT" then
  155.                       if line VmouseLine of field "subtopics" = "introduction" then
  156.                         gSourcePath = "CSi vol.10:content:movie:"
  157.                       else
  158.                         gSourcePath = "CSi vol.10:content:ie:"
  159.                       end if
  160.                     else
  161.                       if gPicName = "CSI_M2.PCT" then
  162.                         if line VmouseLine of field "subtopics" = "introduction" then
  163.                           gSourcePath = "Waves CSi MASTER:content:movie:"
  164.                         else
  165.                           gSourcePath = "Waves CSi MASTER:content:ie:"
  166.                         end if
  167.                       else
  168.                         if gPicName = "CSI_S2.PCT" then
  169.                           if line VmouseLine of field "subtopics" = "introduction" then
  170.                             gSourcePath = "SONAR3 CSi STARTER:content:movie:"
  171.                           else
  172.                             gSourcePath = "SONAR 3 CSi STARTER:content:ie:"
  173.                           end if
  174.                         else
  175.                           if gPicName = "CSI_M3.PCT" then
  176.                             if line VmouseLine of field "subtopics" = "introduction" then
  177.                               gSourcePath = "Reason CSi MASTER:content:movie:"
  178.                             else
  179.                               gSourcePath = "Reason CSi MASTER:content:ie:"
  180.                             end if
  181.                           else
  182.                             if gPicName = "CSI_S3.PCT" then
  183.                               if line VmouseLine of field "subtopics" = "introduction" then
  184.                                 gSourcePath = "CubaseSX2 CSi STARTER:content:movie:"
  185.                               else
  186.                                 gSourcePath = "CubaseSX2 CSi STARTER:content:ie:"
  187.                               end if
  188.                             else
  189.                               if gPicName = "CSI_S04.PCT" then
  190.                                 if line VmouseLine of field "subtopics" = "intro" then
  191.                                   gSourcePath = "Logic CSi STARTER:content:movie:"
  192.                                 else
  193.                                   gSourcePath = "Logic CSi STARTER:content:ie:"
  194.                                 end if
  195.                               else
  196.                                 if gPicName = "CSI_S05.PCT" then
  197.                                   if line VmouseLine of field "subtopics" = "intro" then
  198.                                     gSourcePath = "DP4 CSi STARTER:content:movie:"
  199.                                   else
  200.                                     gSourcePath = "DP4 CSi STARTER:content:ie:"
  201.                                   end if
  202.                                 else
  203.                                   if gPicName = "CSI_S06.PCT" then
  204.                                     if line VmouseLine of field "subtopics" = "intro" then
  205.                                       gSourcePath = "Reason CSi STARTER:content:movie:"
  206.                                     else
  207.                                       gSourcePath = "Reason CSi STARTER:content:ie:"
  208.                                     end if
  209.                                   else
  210.                                     if gPicName = "CSI_M11.PCT" then
  211.                                       if line VmouseLine of field "subtopics" = "intro" then
  212.                                         gSourcePath = "Live 5 CSi MASTER:content:movie:"
  213.                                       else
  214.                                         gSourcePath = "Live 5 CSi MASTER:content:ie:"
  215.                                       end if
  216.                                     else
  217.                                       if gPicName = "CSI_M04.PCT" then
  218.                                         if line VmouseLine of field "subtopics" = "introduction" then
  219.                                           gSourcePath = "Nuendo CSi MASTER:content:movie:"
  220.                                         else
  221.                                           gSourcePath = "Nuendo CSi MASTER:content:ie:"
  222.                                         end if
  223.                                       else
  224.                                       end if
  225.                                     end if
  226.                                   end if
  227.                                 end if
  228.                               end if
  229.                             end if
  230.                           end if
  231.                         end if
  232.                       end if
  233.                     end if
  234.                   end if
  235.                 end if
  236.               end if
  237.             end if
  238.           end if
  239.         end if
  240.       end if
  241.     end if
  242.   end if
  243.   set the textStyle of field "subtopics" to "plain"
  244.   STclickLine = VmouseLine
  245.   lineSelect = STclickLine
  246.   puppetSound("Single Click")
  247.   updateStage()
  248.   set the textStyle of line STclickLine of field "Subtopics" to "plain,underline"
  249.   set the textStyle of field "Sub-subtopics" to "plain"
  250.   SToldClickLine = STclickLine
  251.   STlineSave = STclickLine
  252.   put " " into field "Sub-subtopics"
  253.   set the textStyle of field "Sub-subtopics" to "plain"
  254.   subtopicNumber = STclickLine
  255.   put field(gLang & "sub-subtopics (" & topicLetter & subtopicNumber & ")") into field "sub-subtopics"
  256. end
  257.  
  258. on mouseEnter me
  259.   member("rolloverDisplayText").text = "Select Topic"
  260. end
  261.  
  262. on mouseLeave me
  263.   member("rolloverDisplayText").text = " "
  264. end
  265.